home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / U-Utilities / (c)u7.d64 / -dh copy 2.0 (.txt) < prev    next >
Commodore BASIC  |  2008-11-26  |  3KB  |  51 lines
  1. 0 DATA160,16,132,248,160,,132,247,32,207,255,145,247,200,240,8,32,183,255,240,243:DATA132,247,96,230,248,165,248,201,208,208,240,96,234,169,54,133,1,160,16,132,254:DATA160,,132,253,177,253,32,210,255,200,240,18,196,247,208,244,166,254,228,248
  2. 1 DATA208,238,32,231,255,169,55,133,1,96,230,254,76,166,3,234,169,5,162,8,160,5,32:DATA186,255,173,232,3,162,60,160,3,32,189,255,32,192,255,96,234,162,5,32,198,255:DATA96,234,162,5,32,201,255,96:POKE51,.:POKE52,22:POKE55,.:POKE56,22:CLR:POKE53269,.:GOTO24
  3. 2 H=827:G=65484:R=65478:SS=54272:P=880:F1=53247:F2=1:Z=256:F=781:Q=198:T=59903:RETURN
  4. 3 PRINT"[147]-[159]*-[158][193]NY[203]EY[193]BORTS-[159]*-":OPEN1,8,.,"$":POKEF,1:SYSR:GETA$,A$
  5. 4 SYSG:GETB$:IFB$<>""THENPRINT"-[159]*-[158][193]BORTED-[159]*-":GOTO9
  6. 5 POKEF,1:SYSR:GETA$,A$:IFA$=""THENSYSG:GOTO9
  7. 6 GETB$,L$:LN$=STR$(ASC(B$+CHR$(.))+ASC(L$+CHR$(.))*Z):PRINT""LN$"[159]";
  8. 7 GETA$:PRINTL$;A$;:IFA$=""THENPRINT:GOTO4
  9. 8 GOTO7
  10. 9 CLOSE1:PRINT"[153]       [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]":PRINT"       [208]RESS [193]NY [203]EY [212]O [195]ONTINUE":GOSUB23:POKEQ,.:WAITQ,1:POKEQ,.:GOTO25
  11. 10 POKEF,C:SYST:RETURN
  12. 11 POKEF,C:SYST
  13. 12 PRINTY$" ";:POKEQ,.:PRINT"[159]";:IN$=""
  14. 13 PRINT"[164]";
  15. 14 GETI$:IFI$=""THEN14
  16. 15 PRINT"[157]";:IN=ASC(I$):IFIN=13THENPRINT" ":RETURN
  17. 16 IFIN=20ANDLEN(IN$)THENIN$=LEFT$(IN$,LEN(IN$)-1):PRINTI$;:GOTO13
  18. 17 IF(INAND127)<32ORLEN(IN$)=ILTHEN13
  19. 18 PRINTI$;:POKE212,.:IN$=IN$+I$:GOTO13
  20. 19 D=.:PRINT"           [129][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]":PRINT"           [208]RESS '[193]' [212]O [193]BORT[155]":RETURN
  21. 20 GETA$:IFA$=""THEN20
  22. 21 IFA$="A"THEND=1
  23. 22 RETURN
  24. 23 POKESS+24,15:POKESS+1,110:POKESS+5,9:POKESS+6,9:POKESS+4,17:POKESS+4,16:RETURN
  25. 24 GOSUB2:FORP=880TO994:READA:POKEP,A:NEXT:POKE909,(F1+1)/Z:POKE917,F2:POKE950,F2:POKE881,PEEK(56):POKE919,PEEK(56):POKE53265,27:OPEN15,8,15,"UI+":CLOSE15
  26. 25 CLR:GOSUB2:PRINT"[147]    <[153]< [155][195]OPY [198]ILE [212]O [193]NOTHER [196]ISK [153]>>"
  27. 26 C=4:Y$="[211]EE [193] [196]IRECTORY? ([153][217]/[153][206])":IL=1:GOSUB12:IFIN$="Y"THEN3
  28. 27 IFIN$<>"N"THEN26
  29. 28 C=4:OPEN15,8,15:Y$="[197]NTER [198]ILE [212]O [195]OPY:":IL=16:GOSUB11:P$=IN$
  30. 29 Y$="[197]NTER [198]ILETYPE ([153][208]/[153][211]):":IL=1:GOSUB12:T$=IN$:IFT$<>"P"ANDT$<>"S"THENC=6:GOSUB10:GOTO29
  31. 30 GOSUB19:PRINT"       [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]":PRINT"[155]       [208]RESS [193]NY [203]EY [212]O [210]EAD [198]ILE":GOSUB20:IFDTHENGOSUB49:GOTO38
  32. 31 GOSUB49:PRINT"[153][211]TATUS:[158] [201]NSERT [211]OURCE[158] [196]ISK[160]":PRINT"        [208]RESS [[158][210][197][212][213][210][206]][158]"
  33. 32 GETA$:IFA$<>CHR$(13)THEN32
  34. 33 C=8:GOSUB10:C=9:GOSUB10:PRINT"[153][211]TATUS: [158][210]EADING [198]ILE - [208]LEASE [215]AIT":PT$="0:"+P$+","+T$+",R":POKE1000,LEN(PT$):FORX=1TOLEN(PT$):POKEH+X,ASC(MID$(PT$,X,1)):NEXT:SYS958:SYS982:SYS880:P=PEEK(247)+Z*PEEK(248):CLOSE5:GOSUB42:IFP<=F1THEN35
  35. 34 PRINT"[153][211]TATUS: [158][198]ILE [212]OO [204]ARGE...        ":GOSUB23:PRINT"[155][208]RESS [193]NY [203]EY [212]O [195]ONTINUE":POKEQ,.:WAITQ,1:POKEQ,.:GOTO38
  36. 35 C=8:GOSUB10:GOSUB23:PRINT"[153][211]TATUS: [158][201]NSERT [196]ESTINATION[158] [196]ISK":PRINT"        [208]RESS [[158][210][197][212][213][210][206]]"
  37. 36 GETA$:IFA$<>CHR$(13)THEN36
  38. 37 C=8:GOSUB10:C=9:GOSUB10:PRINT"[153][211]TATUS: [158][215]RITING [198]ILE - [208]LEASE [215]AIT":PT$="@0:"+P$+","+T$+",W":POKE1000,LEN(PT$):FORX=1TOLEN(PT$):POKEH+X,ASC(MID$(PT$,X,1)):NEXT:SYS958:SYS989:SYS914:OPEN15,8,15:GOSUB42:CLOSE15:GOSUB23
  39. 38 C=9:GOSUB10:C=8:Y$="[153][211]TATUS: [158][195]OPY [193]NOTHER [198]ILE?":IL=1
  40. 39 GOSUB11:IFIN$="Y"THEN25
  41. 40 IFIN$="N"THEN45
  42. 41 GOTO39
  43. 42 INPUT#15,A:IFATHENC=8:GOSUB10:PRINT"[153][211]TATUS: [158][197]RROR [200]AS [207]CCURED...":GOTO44
  44. 43 RETURN
  45. 44 GOSUB23:PRINT"[155][208]RESS [193]NY [203]EY [212]O [195]ONTINUE":POKEQ,.:WAITQ,1:POKEQ,.:GOTO38
  46. 45 PRINT"[153][211]TATUS: [158][201]NSERT [196]ISK [200]ELPER 5.0 [158][196]ISK":PRINT"[208]RESS [[158][210][197][212][213][210][206]]"
  47. 46 GETA$:IFA$<>CHR$(13)THEN46
  48. 47 CLOSE15:POKE53265,11:OPEN2,8,2,"DISK HELPER 5.0,P,R":CLOSE2:OPEN15,8,15:INPUT#15,A:CLOSE15:IFA>1THENPOKE53265,27:GOTO46
  49. 48 POKE51,.:POKE52,160:POKE55,.:POKE56,160:CLR:POKE53281,11:OPEN15,8,15,"UI-":CLOSE15:PRINT"[147]L[207]"CHR$(34)"DISK HELPER 5.0"CHR$(34)",8":PRINT"R[213][145][145][145][145][145][145][145][145][145][145]":POKE631,13:POKE632,13:POKE198,2:NEW
  50. 49 FORX=8TO12:POKEF,X:SYST:NEXT:RETURN
  51.